# the following example shows a candlestick chart of INTEL
# with Donchian Channel and SMA
sym <- "INTC"
subset <- "2012-01/2012-06"
symstr <- getSymbols(sym, src="vadb")
TS <- get(paste(symstr, "vadb", sep="."))
chartSeries (TS, name="Intel", subset=subset, type="candles", 
             up.col="white", dn.col="black", theme= chartTheme("white"), TA=NULL)
DC <- DonchianChannel2(TS, n=10)
addTA(cbind(DC[,"high"], DC[,"low"]), on=1, col=c("blue", "blue"))
SMA_20 <- SMA(Cl(TS), n=20)
addTA(SMA_20, on=1, col="red")

 
  